perm filename F80.F4[MSS,LCS]1 blob sn#102015 filedate 1974-05-12 generic text, type T, neo UTF8
00100		SUBROUTINE PLOTS(K)
00110		N='F8'
00155		M='PLT'
00200		CALL INFR80(0,0,0)
00300		END
00400	
00500		SUBROUTINE PLOT(J,K,L)
00600		CALL APLOT(J,K,L)
00700		END
00800	
00900		SUBROUTINE EXITB
01000		CALL RLFR80
01100		CALL EXIT
01200		END